'
 text form to binary form conversion



' text decimal to binary


	multpl = 1

	for dgt = last dgt to first dgt

		total = total + dgt * multpl

		multpl = multpl * 10	
	next




' bin to text decimal

	multpl = 1

	while multpl < num
		multpl = multpl * 10
	wend

	multpl = multpl / 10


	while multpl >= 1

		dgt = 0

		while (total + (dgt+1) * multpl <= num)
			dgt = dgt + 1
		wend

		total = total + multpl * dgt

		multpl = multpl / 10
	wend
	







	

	